home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / tlxjwpc5.zip / REDIAL.SLT < prev    next >
Text File  |  1990-09-21  |  2KB  |  51 lines
  1. //╔═════════════════════════════════════════════════════════════════════╗
  2. //║ RBBS 17.3A         JW-PC Consulting DataFlex.HST      (608)837-1923 ║
  3. //║ Dual Std HST/V.32/MNP5/V.42     RBBSnet 8:972/2     FIDOnet 1:121/8 ║
  4. //╚═════════════════════════════════════════════════════════════════════╝
  5. //File created on 12-28-1989 08:06:15
  6. //
  7. // By: John Mann  for Telix 3.1x
  8. // Just enter a list of numbers with a space in between them and it
  9. // will start dialing.  John
  10. //
  11. // This script will automatically pick up on dialing the next number in the
  12. // string after a connection is completed.   NEAT!  jim wargula
  13. main()
  14. {
  15.  str dialing_list[20],
  16.    connected_to[3];
  17.  int size,
  18.    position;
  19.  
  20.  printsc ("^13^10Enter a list of numbers to dial ");
  21.  gets (dialing_list, 19);
  22.  if (dialing_list == "")
  23.    return 0;
  24.  prints ("");
  25.  strcat (dialing_list, " ");
  26.  
  27.  while (dialing_list){
  28.    if (dial (dialing_list, 0, 0) <= 0)
  29.      break;
  30.    itos (_entry_enum, connected_to);
  31.  
  32.    for (position= 0; position < (strlen (dialing_list) - 1); ++position){
  33.      position = strpos (dialing_list, connected_to, position);
  34.  
  35.      if (subchr (dialing_list, position + strlen (connected_to)) != ' ')
  36.        continue;
  37.  
  38.      if (position > 0){
  39.        if (subchr (dialing_list, position - 1) != ' ')
  40.          continue;
  41.      }
  42.      delchrs (dialing_list, position, strlen (connected_to) + 1);
  43.      break;
  44.    }
  45.    while (carrier ())
  46.      terminal ();
  47.    delay_scr (20);
  48.  }
  49.  return 1;
  50. }
  51.